home *** CD-ROM | disk | FTP | other *** search
/ Freelog 15 / FREELOG 15.ISO / WebMaster / Perl / PERL5106.ZIP / perl5 / ntt / Op / mkdir.ntt < prev    next >
Encoding:
Text File  |  1996-01-31  |  760 b   |  24 lines
  1. #Portions (c) 1995 Microsoft Corporation. All rights reserved. 
  2. #        Developed by hip communications inc., http://info.hip.com/info/
  3.  
  4. #!./perl
  5.  
  6. # $RCSfile: mkdir.t,v $$Revision: 4.1 $$Date: 92/08/07 18:28:06 $
  7.  
  8. print "1..7\n";
  9.  
  10. # WYT 1995-05-02 - changed for MS-DOS
  11. #`rm -rf blurfl`;
  12. unlink blurfl;
  13.  
  14. print (mkdir('blurfl',0777) ? "ok 1\n" : "not ok 1\n");
  15. print (mkdir('blurfl',0777) ? "not ok 2\n" : "ok 2\n");
  16. print ($! =~ /exist/ ? "ok 3\n" : "not ok 3\n");
  17.  
  18. # XXX WYT 1995-05-02 '-d' test doesn't work, have to get it fixed.
  19. print (-d 'blurfl' ? "ok 4\n" : "not ok 4\n");
  20.  
  21. print (rmdir('blurfl') ? "ok 5\n" : "not ok 5\n");
  22. print (rmdir('blurfl') ? "not ok 6\n" : "ok 6\n");
  23. print ($! =~ /such|exist/ ? "ok 7\n" : "not ok 7\n");
  24.